8bitfiles.net/archives/archives.tar/archives/compuserve-file-archive/17 Arcade _ Action Games/STARP.BIN

Commodore BASIC | 2019-04-13 | 5.3 KB | 121 lines

1 REM THIS FILE NAME 'STARP'. FROM 'GAMERS' FORUM. CONVERTED & MODIFIED 2/20/89.
2 POKE55,255:POKE56,47:V=53248:POKEV+32,0:POKEV+33,0:POKEV+38,5:POKE54296,15
3 PRINT"[147]"TAB(14)"S T A R P"TAB(42)"REVISIONS BY TED BERNHARDI 02/20/89"
4 PRINTTAB(18)"W";TAB(53)"ASD";TAB(58)"X"
5 PRINT"PRESS ANY KEY TO BEGIN":GETZZ$
6 GETZZ$:IFZZ$=""THEN6
10 PRINT""TAB(13)"LOADING DATA"
13 FORI=0TO638:READA:POKE1024*12+I,A:NEXT:PRINT"[147]"
15 POKE2040,192:POKE2041,193:POKE2042,194:POKEV+21,1:POKEV+39,5:POKEV+23,1
17 POKEV+29,9:POKEV,148:POKEV+1,108:POKEV+28,6:POKEV+40,2:POKEV+41,2:POKEV+37,8
20 KB=197:PRINT""
25 FORI=0TO151:READA:POKE13*1024+I,A:NEXT
30 D=13*1024:LE=D+52:RI=D+102:FORI=55296TO56295:POKEI,1:NEXT
35 FORI=1TO50:POKE1024+RND(1)*1000,46:NEXT
40 AL=0:TI$="000000":SC=0
50 K=PEEK(KB):A=PEEK(V+30):POKEV+39,5:IFA=9THENPOKEV+39,2
52 IFK<>13THEN100
53 POKE54276,0:POKE54273,72:POKE54272,169:POKE54277,143:POKE54276,129
55 POKEV+2,60:POKEV+3,220:POKEV+5,220
60 POKEV+4,4:POKEV+16,PEEK(V+16)OR4:POKEV+21,PEEK(V+21)OR6
65 FORI=1TO32:POKEV+2,PEEK(V+2)+3:POKEV+3,PEEK(V+3)-3:POKEV+5,PEEK(V+3)
70 A=PEEK(V+4)-3:IFA<0THENA=255:POKEV+16,PEEK(V+16)-4
72 POKEV+4,A
75 A=PEEK(V+30):NEXT:POKEV+21,PEEK(V+21)-6:B=AAND2:IFB=0THENB=AAND4
80 IFB=0THEN85
82 IFAANDBTHEN1000
83 POKE54276,0:POKE54273,17:POKE54277,7:POKE54276,129
85 POKEV+2,PEEK(V)+10:POKEV+3,PEEK(V+1)+10:POKE2041,201:POKEV+21,PEEK(V+21)OR2
90 FORI=1TO50:NEXT:POKEV+21,PEEK(V+21)-2
95 POKE2041,193
100 IFAL>0THEN130
105 IFRND(1)>.1THEN200
107 IFPEEK(V+16)ANDATHENPOKEV+16,PEEK(V+16)-8
110 POKEV+6,RND(1)*256:IFRND(1)>.75THENPOKEV+6,RND(1)*63:POKEV+16,PEEK(V+16)OR8
115 POKEV+7,RND(1)*200:Z=INT(RND(1)*5):POKEV+42,4
120 DZ=INT(RND(1)*5-2):DY=INT(RND(1)*5-2):DX=INT(RND(1)*5-2)
121 IF(DX=0ANDDY=0ANDDZ=0)OR(DX=0ANDDY=0ANDDZ>0)THEN120
122 IFZ=0THEN129
123 IFPEEK(V+16)AND8THENPOKEV+16,PEEK(V+16)-8
124 IFRND(1)>.5THEN127
125 POKEV+6,2:IFRND(1)>.5THENPOKEV+6,86:POKEV+16,PEEK(V+16)OR8
126 GOTO129
127 POKEV+7,31:IFRND(1)>.5THENPOKEV+7,246
129 POKE2043,195+Z:POKEV+21,PEEK(V+21)OR8:AL=1
130 A=PEEK(V+7)+DY*2:IFA<31ORA>246THENAL=0:POKEV+21,PEEK(V+21)-8:GOTO200
135 POKEV+7,A:A=PEEK(V+6)+DX*2:B=PEEK(V+16)AND8
140 IF(A<2ANDB=0)OR(A>86ANDB)THENAL=0:POKEV+21,PEEK(V+21)-8:GOTO200
145 IFA<0THENA=255:POKEV+16,PEEK(V+16)-8
150 IFA>255THENA=0:POKEV+16,PEEK(V+16)OR8
155 POKEV+6,A:Z=Z+DZ/20:IFZ<0THENAL=0:POKEV+21,PEEK(V+21)-8:GOTO200
157 IFZ>4.9THENZ=4.9:DZ=-INT(RND(1)*3)
160 POKE2043,195+Z
165 IFRND(1)<.9THEN200
170 DX=INT(RND(1)*5-2):DY=INT(RND(1)*5-2):IFRND(1)>.7THENDZ=INT(RND(1)*5-2)
175 IFDX=0ANDDY=0ANDDZ=0THEN170
200 IFK<>9ANDK<>18ANDK<>23ANDK<>10THEN300
203 IFAL=0THEN232
205 A=PEEK(V+7)-(K=9)*8+(K=23)*8
206 IFA<31ORA>246THENAL=0:POKEV+21,PEEK(V+21)-8:GOTO50
207 POKEV+7,A
210 B=PEEK(V+16)AND8:A=PEEK(V+6)-(K=10)*8+(K=18)*8
215 IF(A<2ANDB=0)OR(A>86ANDB)THENAL=0:POKEV+21,PEEK(V+21)-8:GOTO200
220 IFA<0THENA=255:POKEV+16,PEEK(V+16)-8
225 IFA>255THENA=0:POKEV+16,PEEK(V+16)OR8
230 POKEV+6,A
232 IFK=9THENSYSD:POKE1024+RND(1)*40,46:GOTO300
235 IFK=10THENSYSRI:POKE1024+INT(RND(1)*25)*40,46:GOTO300
240 IFK=18THENSYSLE:POKE1063+INT(RND(1)*25)*40,46:GOTO300
245 PRINT"                                       ";
250 POKE56295,1:POKE1984+RND(1)*40,46
300 IFTI$<"000200"THEN50
305 PRINT""TAB(8)"TIME'S UP- GAME OVER!"
310 PRINTTAB(8)"YOU SCORED";SC;"POINTS"
315 POKEV+27,255:PRINT"WOULD YOU LIKE TO PLAY ANOTHER GAME?"
320 GETA$:IFA$="Y"THENPRINT"[147]":POKEV+21,1:POKEV+27,0:GOTO30
325 IFA$<>"N"THEN320
330 END
1000 POKEV+21,9:AL=0:POKEV+2,PEEK(V)+10:POKEV+5,PEEK(V+1)+10
1001 POKE54276,0:POKE54273,8:POKE54272,47:POKE54277,76:POKE54276,129
1005 POKEV+4,PEEK(V):POKEV+5,PEEK(V+1):POKEV+23,PEEK(V+23)OR4
1010 POKEV+29,PEEK(V+29)OR4:POKE2041,200:POKE2042,200
1015 POKEV+21,PEEK(V+21)OR6:FORA=200TO201:POKE2042,A:FORB=200TO201.9STEP.05
1020 POKE54276,0:POKE54276,129:POKE2041,B:NEXTB,A:POKEV+23,1:POKEV+29,9
1025 POKEV+21,1:POKE2041,193:POKE2042,194:SC=SC+(5-INT(Z))*10:GOTO100
10000 DATA0,0,0,0,0,0,0,0,0,0,28,0,0,255,128,7,128,240,12,0,24,16,8,4,32,8,2
10005 DATA32,0,2,0,99,0,32,0,2,32,8,2,16,8,4,12,0,24,7,128,240,0,255,128,0,28,0
10010 DATA0,0,0,0,0,0,0,0,0,99
10015 DATA0,0,0,0,0,0,0,2,128,0,2,128,0,41,128,0,41,128,0,150,0,0,150,0,2,86,0
10020 DATA2,86,0,2,88,0,2,88,0,9,160,0,9,160,0,38,0,0,38,0,0,40,0,0,40,0,0
10025 DATA128,0,0,128,0,0,0,0,0,99
10030 DATA0,0,0,0,0,0,2,128,0,2,128,0,2,104,0,2,104,0,0,150,0,0,150,0
10035 DATA0,149,128,0,149,128,0,37,128,0,37,128,0,10,96,0,10,96,0,0,152,0,0,152
10040 DATA0,0,40,0,0,40,0,0,2,0,0,2,0,0,0,99
10045 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0,62,0,0,0,0
10050 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,99
10055 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0,28,0,0,255,128
10060 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,99
10065 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,34,0,0,28,0,0,127,0,3,255,224
10070 DATA0,201,128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
10075 DATA99,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,99,0,0,28,0,0,62,0,0,247,128
10080 DATA7,255,240,31,255,252,1,201,192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
10085 DATA0,0,0,0,0,0,0,99
10090 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,128,128,0,99,0,0,28,0,0,127,0,1,227,192,15
10095 DATA255,248,127,255,255,7,156,240,2,0,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
10100 DATA0,0,0,0,0,0,0,99
10105 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32,0,0,186,128,10,247,128,47,123,128
10110 DATA181,151,224,173,85,120,11,95,248,2,222,160,2,222,0,2,222,0,0,190,0
10115 DATA0,40,0,0,0,0,0,0,0,0,0,0,0,0,0,99
10120 DATA0,0,0,0,0,0,0,2,128,0,138,232,2,239,120,11,117,224,45,119,168,47,87
10125 DATA254,10,213,94,11,85,248,11,87,160,45,221,128,181,221,224,183,223,120
10130 DATA46,187,94,8,34,222,0,0,184,0,0,32,0,0,0,0,0,0,0,0,0
20000 DATA162,192,189,255,6,157,39,7,202,208,247,202,189,255,5,157,39,6,202,208
20005 DATA247,202,189,255,4,157,39,5,202,208,247,202,189,255,3,157,39,4,202,208
20010 DATA247,169,32,157,0,4,232,224,40,208,248,96
30000 DATA169,0,133,20,169,4,133,21,160,1,177,20,136,145,20,200,200,192,40
30005 DATA208,245,136,169,32,145,20,169,40,24,101,20,133,20,169,0,101,21,133,21
30010 DATA201,7,208,221,165,20,201,232,208,215,96
40000 DATA169,0,133,20,169,4,133,21,160,39,177,20,200,145,20,136,136,192,255
40005 DATA208,245,200,169,32,145,20,169,40,24,101,20,133,20,169,0,101,21,133,21
40010 DATA201,7,208,221,165,20,201,232,208,215,96